home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / term43-source.lha / Extras / Source / term-Source.lha / PasswordUserPanel.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-02-07  |  3.6 KB  |  183 lines
  1. /*
  2. **    PasswordUserPanel.c
  3. **
  4. **    Editing panel for password and user name
  5. **
  6. **    Copyright © 1990-1995 by Olaf `Olsen' Barthel
  7. **        All Rights Reserved
  8. */
  9.  
  10. #include "termGlobal.h"
  11.  
  12. enum    {    GAD_USERNAME=1000,GAD_PASSWORD,
  13.         GAD_USE,GAD_CANCEL
  14.     };
  15.  
  16. BYTE __regargs
  17. PasswordUserPanel(struct PhoneEntry *Entry)
  18. {
  19.     struct LayoutHandle    *Handle;
  20.     BYTE             MadeChanges = FALSE;
  21.  
  22.     if(Handle = LT_CreateHandleTags(Window -> WScreen,
  23.         LH_LocaleHook,    &LocaleHook,
  24.         LH_ExitFlush,    FALSE,
  25.     TAG_DONE))
  26.     {
  27.         struct Window    *PanelWindow;
  28.         UBYTE         UserName[100],
  29.                  Password[100];
  30.  
  31.         strcpy(UserName,Entry -> Header -> UserName);
  32.         strcpy(Password,Entry -> Header -> Password);
  33.  
  34.         LT_New(Handle,
  35.             LA_Type,    VERTICAL_KIND,
  36.         TAG_DONE);
  37.         {
  38.             LT_New(Handle,
  39.                 LA_Type,    VERTICAL_KIND,
  40.                 LA_LabelID,    MSG_V36_0120,
  41.             TAG_DONE);
  42.             {
  43.                 LT_New(Handle,
  44.                     LA_Type,    STRING_KIND,
  45.                     LA_LabelID,    MSG_PASSWORDUSERPANEL_USER_NAME_GAD,
  46.                     LA_STRPTR,    UserName,
  47.                     LA_Chars,    30,
  48.                     LA_ID,        GAD_USERNAME,
  49.                     GTST_MaxChars,    99,
  50.                 TAG_DONE);
  51.  
  52.                 LT_New(Handle,
  53.                     LA_Type,    STRING_KIND,
  54.                     LA_LabelID,    MSG_PASSWORDUSERPANEL_PASSWORD_GAD,
  55.                     LA_STRPTR,    Password,
  56.                     LA_Chars,    30,
  57.                     LA_ID,        GAD_PASSWORD,
  58.                     GTST_MaxChars,    99,
  59.                 TAG_DONE);
  60.  
  61.                 LT_EndGroup(Handle);
  62.             }
  63.  
  64.             LT_New(Handle,
  65.                 LA_Type,VERTICAL_KIND,
  66.             TAG_DONE);
  67.             {
  68.                 LT_New(Handle,
  69.                     LA_Type,    XBAR_KIND,
  70.                     LAXB_FullSize,    TRUE,
  71.                 TAG_DONE);
  72.  
  73.                 LT_EndGroup(Handle);
  74.             }
  75.  
  76.             LT_New(Handle,LA_Type,HORIZONTAL_KIND,
  77.                 LAGR_SameSize,    TRUE,
  78.                 LAGR_Spread,    TRUE,
  79.             TAG_DONE);
  80.             {
  81.                 LT_New(Handle,
  82.                     LA_Type,    BUTTON_KIND,
  83.                     LA_LabelID,    MSG_GLOBAL_USE_GAD,
  84.                     LA_ID,        GAD_USE,
  85.                     LABT_ReturnKey,    TRUE,
  86.                     LABT_ExtraFat,    TRUE,
  87.                 TAG_DONE);
  88.  
  89.                 LT_New(Handle,
  90.                     LA_Type,    BUTTON_KIND,
  91.                     LA_LabelID,    MSG_GLOBAL_CANCEL_GAD,
  92.                     LA_ID,        GAD_CANCEL,
  93.                     LABT_EscKey,    TRUE,
  94.                     LABT_ExtraFat,    TRUE,
  95.                 TAG_DONE);
  96.  
  97.                 LT_EndGroup(Handle);
  98.             }
  99.  
  100.             LT_EndGroup(Handle);
  101.         }
  102.  
  103.         if(PanelWindow = LT_Layout(Handle,LocaleString(MSG_PASSWORDUSERPANEL_PASSWORD_AND_USER_NAME_TXT),NULL,0,0,IDCMP_CLOSEWINDOW,0,
  104.             LAWN_HelpHook,        &GuideHook,
  105.             LAWN_Parent,        Window,
  106.             WA_DepthGadget,        TRUE,
  107.             WA_CloseGadget,        TRUE,
  108.             WA_DragBar,        TRUE,
  109.             WA_RMBTrap,        TRUE,
  110.             WA_Activate,        TRUE,
  111.         TAG_DONE))
  112.         {
  113.             struct IntuiMessage    *Message;
  114.             BOOLEAN             Done = FALSE;
  115.             ULONG             MsgClass,
  116.                          MsgQualifier;
  117.             UWORD             MsgCode;
  118.             struct Gadget        *MsgGadget;
  119.  
  120.             GuideContext(CONTEXT_PASSWORDUSER);
  121.  
  122.             PushWindow(PanelWindow);
  123.  
  124.             LT_ShowWindow(Handle,TRUE);
  125.  
  126.             do
  127.             {
  128.                 if(Wait(PORTMASK(PanelWindow -> UserPort) | SIG_BREAK) & SIG_BREAK)
  129.                     break;
  130.  
  131.                 while(Message = (struct IntuiMessage *)GT_GetIMsg(PanelWindow -> UserPort))
  132.                 {
  133.                     MsgClass    = Message -> Class;
  134.                     MsgQualifier    = Message -> Qualifier;
  135.                     MsgCode        = Message -> Code;
  136.                     MsgGadget    = (struct Gadget *)Message -> IAddress;
  137.  
  138.                     GT_ReplyIMsg(Message);
  139.  
  140.                     LT_HandleInput(Handle,MsgQualifier,&MsgClass,&MsgCode,&MsgGadget);
  141.  
  142.                     if(MsgClass == IDCMP_CLOSEWINDOW)
  143.                         Done = TRUE;
  144.  
  145.                     if(MsgClass == IDCMP_GADGETUP)
  146.                     {
  147.                         switch(MsgGadget -> GadgetID)
  148.                         {
  149.                             case GAD_USE:
  150.  
  151.                                 LT_UpdateStrings(Handle);
  152.  
  153.                                 if(strcmp(Entry -> Header -> Password,Password))
  154.                                     MadeChanges = TRUE;
  155.  
  156.                                 if(strcmp(Entry -> Header -> UserName,UserName))
  157.                                     MadeChanges = TRUE;
  158.  
  159.                                 strcpy(Entry -> Header -> UserName,UserName);
  160.                                 strcpy(Entry -> Header -> Password,Password);
  161.  
  162.                                 Done = TRUE;
  163.                                 break;
  164.  
  165.                             case GAD_CANCEL:
  166.  
  167.                                 Done = TRUE;
  168.                                 break;
  169.                         }
  170.                     }
  171.                 }
  172.             }
  173.             while(!Done);
  174.  
  175.             PopWindow();
  176.         }
  177.  
  178.         LT_DeleteHandle(Handle);
  179.     }
  180.  
  181.     return(MadeChanges);
  182. }
  183.